perm filename MSDIF[NEW,LCS] blob
sn#509268 filedate 1980-05-09 generic text, type T, neo UTF8
1) MS.F4[NEW,LCS] and 2) MS.OLD[NEW,LCS] 5-09-80 23:36 pages 1,1
**** File 1) MS.F4[NEW,LCS]/1P/259L
1) 25900 C****320 REREAD 2430,J,R2,RJQ
1) 26000 C ↑↑↑ 1/78
1) 26100 320 CALL READX
1) 26200 J=JA
1) 26300 C FIRST CATCHES BLANKS, NUMBERS, ETC.
**** File 2) MS.OLD[NEW,LCS]/1P/259L
2) 320 REREAD 2430,J,R2,RJQ
2) C ↑↑↑ 1/78
2) C FIRST CATCHES BLANKS, NUMBERS, ETC.
***************
**** File 1) MS.F4[NEW,LCS]/1P/325L
1) 32500 CRR*** REREAD 2430,JA,JA,JA,R2,RJQ
1) 32600 J=4
**** File 2) MS.OLD[NEW,LCS]/1P/323L
2) REREAD 2430,JA,JA,JA,R2,RJQ
2) J=4
***************
**** File 1) MS.F4[NEW,LCS]/1P/409L
1) 40900 CRR***500 REREAD 2430,JA,JA,JA,R2,RJQ
1) 41000 500 R5=RD
1) 41100 GO TO 890
**** File 2) MS.OLD[NEW,LCS]/1P/407L
2) 500 REREAD 2430,JA,JA,JA,R2,RJQ
2) R5=RD
2) GO TO 890
***************
**** File 1) MS.F4[NEW,LCS]/1P/430L
1) 43000 CRR***560 FORMAT(A2,21F)
1) 43100 CC IF(X22.NE.0)GO TO 59
1) 43200 560 IF(I3.EQ.LCC)GO TO 830
1) 43300 C STC=STACCATO
**** File 2) MS.OLD[NEW,LCS]/1P/428L
2) 560 FORMAT(A2,21F)
2) CC IF(X22.NE.0)GO TO 59
2) IF(I3.EQ.LCC)GO TO 830
2) C STC=STACCATO
***************
**** File 1) MS.F4[NEW,LCS]/1P/436L
1) 43600 CRR***580 REREAD 560,K,R2,RJQ
1) MS.F4[NEW,LCS] and 2) MS.OLD[NEW,LCS] 5-09-80 23:36 pages 1,1
1) 43700 580 JA=55
1) 43800 IF(I2.NE.LCC)GO TO 590
**** File 2) MS.OLD[NEW,LCS]/1P/434L
2) 580 REREAD 560,K,R2,RJQ
2) JA=55
2) IF(I2.NE.LCC)GO TO 590
***************
**** File 1) MS.F4[NEW,LCS]/1P/554L
1) 55400 CRR***790 REREAD 560,JA,R2,RJQ
1) 55500 790 CONTINUE
1) 55600 800 IF(X22.NE.0)GO TO 130
**** File 2) MS.OLD[NEW,LCS]/1P/552L
2) 790 REREAD 560,JA,R2,RJQ
2) 800 IF(X22.NE.0)GO TO 130
***************
**** File 1) MS.F4[NEW,LCS]/1P/564L
1) 56400 CRR***820 REREAD 2430,J,J,J,R2,RJQ
1) 56500 820 GO TO 800
1) 56600 830 RD=7
**** File 2) MS.OLD[NEW,LCS]/1P/561L
2) 820 REREAD 2430,J,J,J,R2,RJQ
2) GO TO 800
2) 830 RD=7
***************
**** File 1) MS.F4[NEW,LCS]/1P/582L
1) 58200 CRR***860 REREAD 560,JA,R2,RJQ
1) 58300 860 R5=26
1) 58400 J=9
**** File 2) MS.OLD[NEW,LCS]/1P/579L
2) 860 REREAD 560,JA,R2,RJQ
2) R5=26
2) J=9
***************
**** File 1) MS.F4[NEW,LCS]/1P/598L
1) 59800 CRR***880 REREAD 560,JA,R2,RJQ
1) 59900 880 R5=RD
1) 60000 890 J=3
**** File 2) MS.OLD[NEW,LCS]/1P/595L
2) 880 REREAD 560,JA,R2,RJQ
2) R5=RD
1) MS.F4[NEW,LCS] and 2) MS.OLD[NEW,LCS] 5-09-80 23:36 pages 1,1
2) 890 J=3
***************
**** File 1) MS.F4[NEW,LCS]/2P/27L
1) 02700 CRR*** REREAD 560,R3,R3
1) 02800 C FOR SOME REASON ONLY 'ZD' NEEDS THIS REREAD?!?!?!? FORMAT(A2,21F)
1) 02900 R3=R2
1) 03000 CRR*** ABOVE REPLACES REREAD
1) 03100 IF(R3.EQ.0)R3=RZZZ
**** File 2) MS.OLD[NEW,LCS]/2P/27L
2) REREAD 560,R3,R3
2) C FOR SOME REASON ONLY 'ZD' NEEDS THIS REREAD?!?!?!? FORMAT(A2,21F)
2) IF(R3.EQ.0)R3=RZZZ
***************
**** File 1) MS.F4[NEW,LCS]/2P/129L
1) 12900 CRR*** REREAD 560,JA,R2,RJQ
1) 13000 R6=RA
**** File 2) MS.OLD[NEW,LCS]/2P/127L
2) REREAD 560,JA,R2,RJQ
2) R6=RA
***************
**** File 1) MS.F4[NEW,LCS]/3P/406L
1) 40600 CRR***2430 FORMAT(I,24F)
1) 40700 2430 END
**** File 2) MS.OLD[NEW,LCS]/3P/406L
2) 2430 FORMAT(I,24F)
2) END
***************